0 PLOT   = 49152 : LINE    = PL+3  :      CLEAR  = PL+6  : RECHT   = PL+9
1 SETUP  = PL+12 : SHOW    = PL+15 :      MEM    = PL+18 : ELLIPSE = PL+21
2 TEST   = PL+24 : INVERT  = PL+27 :      SPEICH = PL+30 : LEFT    = PL+33
3 RIGHT  = PL+36 : HARD    = PL+39 :      UP     = PL+42 : DOWN    = PL+45
4 WRITE  = PL+48 : ZMEM    = PL+51 :      COPY   = PL+54 : W2      = PL+57
5 SSETUP = PL+60 : CHARSET = PL+63 :      LADEN  = PL+66
10 POKE53281,0:POKE53280,0:POKE646,1
15 GOSUB215
20 SYS MEM,32,32:SYS SHOW ,1,1,1,1,0
25 SYS SETUP ,120,95:SYS CLEAR
30 SYS ZMEM,53248,1,0
32 SYS CHARSET,8,8,0,0
35 PRINT"[147]"
40 SYS CL:INPUT"TEXT:";NA$:LE=LEN(NA$):IFLE<1ORLE>11THEN40
41 FORY=0TO16STEP8
42 X=0:FORK=1TOLE:A$=MID$(NA$,K,1)
44 A=Y/8:GOSUB70:X=X+8
48 NEXT
49 NEXT
50 GOTO40
70 FORI=0TO7
80 SYS CH,8,8,W1(A),W2(A)
90 SYS WR,X,Y,A$+CHR$(34)
100 IFW1(A)>0THENW1(A)=W1(A)-1
105 IFW2(A)>0THENW2(A)=W2(A)-1
210 NEXT
215 W1(0)=7:W1(1)=0:W1(2)=7
216 W2(0)=7:W2(1)=7:W2(2)=0
220 RETURN